home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / funbasic.arc / BLSTAR.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-03-25  |  253 b   |  14 lines
  1. 10  CLS : SCREEN 1
  2. 30  RANDOMIZE(VAL(RIGHT$(TIME$,2)))
  3. 40  FOR I = 200 TO 1 STEP -6
  4. 50  C = INT(RND*15) + 1
  5. 60  CIRCLE(160,100),I,C
  6. 70  NEXT I
  7. 80  FOR I = 1 TO 75
  8. 90  D = INT(RND*15) + 1
  9. 100  CIRCLE(160,100),I,D,,,5/22
  10. 105  CIRCLE(160,100),I,D,,,22/5
  11. 106  CIRCLE(160,100),I,0,,,5/22
  12. 107  CIRCLE(160,100),I,0,,,22/5
  13. 110  NEXT I
  14.